﻿Public Class Notas
    Dim ocdNotas As New CapaDatos.Notas

    Public Sub InsertarNotaProfesor(ByVal nroExpedienteTF As String, ByVal dniProfesor As String)
        ocdNotas.InsertarNotaProfesor(nroExpedienteTF, dniProfesor)
    End Sub

    Public Sub InsertarNroResolucionCAL(ByVal nroResolucionCAL As String _
                                        , ByVal nroExpediente As String, ByVal fechaResolucion As DateTime)
        ocdNotas.InsertarNroResolucionCAL(nroResolucionCAL, nroExpediente, fechaResolucion)
    End Sub

    Public Sub InsertarNroResolucionAN(ByVal nroResolucionAN As String _
                                    , ByVal nroExpediente As String, ByVal fechaResolucion As DateTime)
        ocdNotas.InsertarNroResolucionAN(nroResolucionAN, nroExpediente, fechaResolucion)
    End Sub


    Public Function obtenerNotas(ByVal nroExpediente As String) As DataSet
        Return ocdNotas.obtenerNotas(nroExpediente)
    End Function

    Public Function obtenerNotasAprobadas() As DataSet
        Return ocdNotas.obtenerNotasAprobadas()
    End Function

    Public Function obtenerNotasAprobadas(ByVal fechaDesde As DateTime, ByVal fechaHasta As DateTime) As DataSet
        Return ocdNotas.obtenerNotasAprobadas(fechaDesde, fechaHasta)
    End Function

    Public Function obtenerNotasProfesores(ByVal nroExpediente As String) As DataSet
        Return ocdNotas.obtenerNotasProfesores(nroExpediente)
    End Function

End Class
